object DM: TDM
  OldCreateOrder = False
  Height = 335
  Width = 265
  object IBDbanco: TIBDatabase
    Connected = True
    DatabaseName = ':C:\umsoft\my-project-engetec\banco\BANCO1.GDB'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction
    Left = 32
    Top = 16
  end
  object IBTransaction: TIBTransaction
    Active = True
    DefaultDatabase = IBDbanco
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 112
    Top = 16
  end
  object IBQmunicipio: TIBQuery
    Database = IBDbanco
    Transaction = IBTransaction
    SQL.Strings = (
      'select * from MUNICIPIO')
    UpdateObject = IBUmunicipio
    GeneratorField.Field = 'CD_MUNICIPIO'
    GeneratorField.Generator = 'GEN_MUNICIPIO_ID'
    Left = 24
    Top = 88
    object IBQmunicipioCD_MUNICIPIO: TIntegerField
      FieldName = 'CD_MUNICIPIO'
      Origin = '"MUNICIPIO"."CD_MUNICIPIO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBQmunicipioNM_MUNICIPIO: TIBStringField
      FieldName = 'NM_MUNICIPIO'
      Origin = '"MUNICIPIO"."NM_MUNICIPIO"'
      Required = True
      Size = 50
    end
    object IBQmunicipioCD_UF: TIBStringField
      FieldName = 'CD_UF'
      Origin = '"MUNICIPIO"."CD_UF"'
      Required = True
      FixedChar = True
      Size = 2
    end
  end
  object IBUmunicipio: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  CD_MUNICIPIO,'
      '  NM_MUNICIPIO,'
      '  CD_UF'
      'from MUNICIPIO '
      'where'
      '  CD_MUNICIPIO = :CD_MUNICIPIO and'
      '  CD_UF = :CD_UF and'
      '  NM_MUNICIPIO = :NM_MUNICIPIO')
    ModifySQL.Strings = (
      'update MUNICIPIO'
      'set'
      '  CD_MUNICIPIO = :CD_MUNICIPIO,'
      '  CD_UF = :CD_UF,'
      '  NM_MUNICIPIO = :NM_MUNICIPIO'
      'where'
      '  CD_MUNICIPIO = :OLD_CD_MUNICIPIO and'
      '  CD_UF = :OLD_CD_UF and'
      '  NM_MUNICIPIO = :OLD_NM_MUNICIPIO')
    InsertSQL.Strings = (
      'insert into MUNICIPIO'
      '  (CD_MUNICIPIO, CD_UF, NM_MUNICIPIO)'
      'values'
      '  (:CD_MUNICIPIO, :CD_UF, :NM_MUNICIPIO)')
    DeleteSQL.Strings = (
      'delete from MUNICIPIO'
      'where'
      '  CD_MUNICIPIO = :OLD_CD_MUNICIPIO and'
      '  CD_UF = :OLD_CD_UF and'
      '  NM_MUNICIPIO = :OLD_NM_MUNICIPIO')
    Left = 96
    Top = 88
  end
  object IBQpesqmunicipio: TIBQuery
    Database = IBDbanco
    Transaction = IBTransaction
    SQL.Strings = (
      'select * from MUNICIPIO')
    Left = 176
    Top = 88
    object IBQpesqmunicipioCD_MUNICIPIO: TIntegerField
      FieldName = 'CD_MUNICIPIO'
      Origin = '"MUNICIPIO"."CD_MUNICIPIO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBQpesqmunicipioNM_MUNICIPIO: TIBStringField
      FieldName = 'NM_MUNICIPIO'
      Origin = '"MUNICIPIO"."NM_MUNICIPIO"'
      Required = True
      Size = 50
    end
    object IBQpesqmunicipioCD_UF: TIBStringField
      FieldName = 'CD_UF'
      Origin = '"MUNICIPIO"."CD_UF"'
      Required = True
      FixedChar = True
      Size = 2
    end
  end
  object IBQprofissao: TIBQuery
    Database = IBDbanco
    Transaction = IBTransaction
    SQL.Strings = (
      'select * from PROFISSAO')
    UpdateObject = IBUprofissao
    Left = 16
    Top = 152
    object IBQprofissaoCD_PROFISSAO: TIntegerField
      FieldName = 'CD_PROFISSAO'
      Origin = '"PROFISSAO"."CD_PROFISSAO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBQprofissaoDS_PROFISSAO: TIBStringField
      FieldName = 'DS_PROFISSAO'
      Origin = '"PROFISSAO"."DS_PROFISSAO"'
      Required = True
      Size = 40
    end
  end
  object IBUprofissao: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  CD_PROFISSAO,'
      '  DS_PROFISSAO'
      'from PROFISSAO '
      'where'
      '  CD_PROFISSAO = :CD_PROFISSAO and'
      '  DS_PROFISSAO = :DS_PROFISSAO')
    ModifySQL.Strings = (
      'update PROFISSAO'
      'set'
      '  CD_PROFISSAO = :CD_PROFISSAO,'
      '  DS_PROFISSAO = :DS_PROFISSAO'
      'where'
      '  CD_PROFISSAO = :OLD_CD_PROFISSAO and'
      '  DS_PROFISSAO = :OLD_DS_PROFISSAO')
    InsertSQL.Strings = (
      'insert into PROFISSAO'
      '  (CD_PROFISSAO, DS_PROFISSAO)'
      'values'
      '  (:CD_PROFISSAO, :DS_PROFISSAO)')
    DeleteSQL.Strings = (
      'delete from PROFISSAO'
      'where'
      '  CD_PROFISSAO = :OLD_CD_PROFISSAO and'
      '  DS_PROFISSAO = :OLD_DS_PROFISSAO')
    Left = 88
    Top = 152
  end
  object IBQpesqprofissao: TIBQuery
    Database = IBDbanco
    Transaction = IBTransaction
    SQL.Strings = (
      'select * from PROFISSAO')
    Left = 168
    Top = 152
  end
end
